home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / source / ANY / putstring.s < prev    next >
Encoding:
Text File  |  1996-01-20  |  375 b   |  22 lines
  1.  
  2. **
  3. ** putstring(s:STRING)
  4. **
  5. ** Copyright © 1995, Guichard Damien.
  6. **
  7.  
  8.         include dos/dos_lib.i
  9.         include globals.i
  10.  
  11. putstring
  12.         move.l  (stdout,a4),d1
  13.         move.l  ($4,sp),a2
  14.         move.l  ($C,a2),d2
  15.         move.l  ($8,a2),d3
  16.         move.l  #1,d4
  17.         move.l  a0,-(sp)        
  18.         DOS_CALL FWrite
  19.         move.l  (sp)+,a0
  20.         rtd     #4
  21.  
  22.